home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / DABBREV.ELC < prev    next >
Text File  |  1993-03-28  |  4KB  |  57 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:32:25 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/dabbrev.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (provide 'dabbrevs)
  14. (defvar dabbrevs-limit nil "\
  15. *Limits region searched by dabbrevs-expand to that many chars away (local).")
  16. (make-variable-buffer-local 'dabbrevs-limit)
  17. (defvar dabbrevs-backward-only nil "\
  18. *If non-NIL, dabbrevs-expand only looks backwards.")
  19. (defvar last-dabbrevs-table nil "\
  20. Table of expansions seen so far. (local)")
  21. (make-variable-buffer-local 'last-dabbrevs-table)
  22. (defvar last-dabbrevs-abbreviation "" "\
  23. Last string we tried to expand.  Buffer-local.")
  24. (make-variable-buffer-local 'last-dabbrevs-abbreviation)
  25. (defvar last-dabbrevs-direction 0 "\
  26. Direction of last dabbrevs search. (local)")
  27. (make-variable-buffer-local 'last-dabbrevs-direction)
  28. (defvar last-dabbrevs-abbrev-location nil "\
  29. Location last abbreviation began (local).")
  30. (make-variable-buffer-local 'last-dabbrevs-abbrev-location)
  31. (defvar last-dabbrevs-expansion nil "\
  32. Last expansion of an abbreviation. (local)")
  33. (make-variable-buffer-local 'last-dabbrevs-expansion)
  34. (defvar last-dabbrevs-expansion-location nil "\
  35. Location the last expansion was found. (local)")
  36. (make-variable-buffer-local 'last-dabbrevs-expansion-location)
  37. (fset 'dabbrev-expand #[(arg) "└ëëëëëë    ¡ü\n    \nè ¼Ö =½Æ½Ä\n¬¼ ¼è½â╙¬ç╘¬ä╒ !`╓vê``{ë\n└└┘┌\n!█Q╘Y½║╙]½äbê╘V½¢▄ ▌ #ë    ½æ▐     BSë¬a    ¼â└╙^╘X½╡    ¼▒╙[]½äbê╘V½¢▄ └ #ë    ½æ▐     BSë¬a╓)    ¼¬\nÿ└¼ìα êßG!ê\ncêΓ½âπ¬üΣ\n\")¬ñα êσ!êµ     ¡à    ëùÿ?τ#ê\n    ë.ç" [nil case-fold-search case-replace do-case pattern n loc which old expansion abbrev arg last-command this-command last-dabbrevs-abbrev-location last-dabbrevs-abbreviation last-dabbrevs-expansion last-dabbrevs-direction dabbrevs-backward-only 1 0 prefix-numeric-value -1 last-dabbrevs-expansion-location last-dabbrev-table "\\b" regexp-quote "\\(\\sw\\|\\s_\\)+" dabbrevs-search t point-marker first undo-boundary delete-backward-char error "No dynamic expansion for \"%s\" found." "No further dynamic expansions for \"%s\" found." search-backward replace-match literal] 9 "\
  38. Expand previous word \"dynamically\".
  39. Expands to the most recent, preceding word for which this is a prefix.
  40. If no suitable preceding word is found, words following point are considered.
  41.  
  42. If `case-fold-search' and `case-replace' are non-nil (usually true)
  43. then the substituted word may be case-adjusted to match the abbreviation
  44. that you had typed.  This takes place if the substituted word, as found,
  45. is all lower case, or if it is at the beginning of a sentence and only
  46. its first letter was upper case.
  47.  
  48. A positive prefix argument, N, says to take the Nth backward DISTINCT
  49. possibility.  A negative argument says search forward.  The variable
  50. dabbrev-backward-only may be used to limit the direction of search to
  51. backward if set non-nil.
  52.  
  53. If the cursor has not moved from the end of the previous expansion and
  54. no argument is given, replace the previously-made expansion
  55. with the next possible expansion not yet tried." "*P"])
  56. (fset 'dabbrevs-search #[(pattern reverse ignore-case) "└ë    î½É`½â╚¬ü╔_\\}ê└└ ¼╦ ¼╚½ê╩ └╠#¬å═ └╠#?ë¼c╬ö╬ò{ë½¢    ½ë@ù ùÿ¬à@ ÿ¼êAë¼e½é└)¬2 ½┐è╬öëbê    ½│ ╔└O ╔└Oùÿ½º╙Pÿ½Å╩└╠#½û╬òU¬è╔uê╓ ê`U½â ù* ,ç" [nil ignore-case case-fold-search result missing dabbrevs-limit last-dabbrevs-abbrev-location reverse -1 1 re-search-backward pattern t re-search-forward 0 last-dabbrev-table test beg paragraph-start "^$\\|" page-delimiter sentence-end backward-sentence] 5])
  57.